home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / pascal / ovrobj.com / DEMOUNIT.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-11-08  |  501 b   |  30 lines
  1. unit DemoUnit;
  2. {$O+}
  3. interface
  4.  
  5. uses Ovr_Obj;
  6.  
  7. procedure DemoUnitProc;
  8.  
  9. implementation
  10.  
  11. type
  12.   StringPtr = ^String;
  13.  
  14. var
  15.   DataPtr : StringPtr;
  16.  
  17. procedure DemoText; external;
  18. {$L DemoText.Obj}
  19.  
  20. procedure DemoUnitProc;
  21. begin
  22.   DataPtr := OvrObj (@DemoText);  { Get the actual address of the data }
  23.   Writeln (DataPtr^);             { Show that it worked }
  24.  
  25.   { OvrObj can be dereferenced directly using typecasting }
  26.   Writeln (StringPtr(OvrObj(@DemoText))^); 
  27. end;
  28.  
  29. end.
  30.